Star Trek Starfleet Academy Mini Omnipedia/MINI_OMNI.ISO/pc/omni_v2.dxr/00372_Common User Events.ls

Text File | 1996-04-15 | 3.1 KB | 132 lines

global oIndexScroller, gGlobalStepCount, gMACListenStatus, gInputField, gSearchState, gStatusField

on hStepPrev
  global gYouClickedF, gModeState
  if gModeState = #CHRO then
    set gYouClickedF to 1
  end if
  hPlaceEntryRequest(-1)
end

on hStepNext
  global gYouClickedF, gModeState, gEditKeys
  if gModeState = #CHRO then
    set gYouClickedF to 1
  end if
  if gEditKeys then
    if the shiftDown and the commandDown then
      hReviseEntry()
    end if
  end if
  hPlaceEntryRequest(1)
end

on hLIneUp
  mIndexBackLine(oIndexScroller)
  repeat while the stillDown
    mIndexBackLine(oIndexScroller)
  end repeat
  if gMACListenStatus then
    hLoadIndextoLexicon()
  end if
end

on hLineDown
  mIndexForwardLine(oIndexScroller)
  repeat while the stillDown
    mIndexForwardLine(oIndexScroller)
  end repeat
  if gMACListenStatus then
    hLoadIndextoLexicon()
  end if
end

on hPageUp
  mIndexBackPage(oIndexScroller)
  repeat while the stillDown
    mIndexBackPage(oIndexScroller)
  end repeat
  if gMACListenStatus then
    hLoadIndextoLexicon()
  end if
end

on hPageDown
  mIndexForwardPage(oIndexScroller)
  repeat while the stillDown
    mIndexForwardPage(oIndexScroller)
  end repeat
  if gMACListenStatus then
    hLoadIndextoLexicon()
  end if
end

on hSearchRequest
  global gEditKeys
  if gEditKeys then
    if the shiftDown and the commandDown then
      hFindLinkInList()
    else
      if gSearchState = #word then
        hFindThisWord()
      else
        if gSearchState = #ENTRY then
          hFindThisEntry()
        end if
      end if
    end if
  else
    if gSearchState = #word then
      hFindThisWord()
    else
      if gSearchState = #ENTRY then
        hFindThisEntry()
      end if
    end if
  end if
end

on hIndexClick pTheMseLn
  global oIndexScroller, gModeState, oTextScroller, gYouClickedF, gEditKeys
  if pTheMseLn > 0 then
    if gModeState = #CHRO then
      set gYouClickedF to 1
    end if
    mJumpIndex(oIndexScroller, pTheMseLn)
    hMiniFind(1)
    if gModeState = #CHRO then
      mChroPicDispTest(oTextScroller, 1)
    end if
    if gEditKeys then
      set vNtry to line pTheMseLn of field "BltIndexWin1"
      if the controlDown and the commandDown then
        hAttachRealEntry(vNtry)
      end if
    end if
  end if
end

on hSysAlert pMsg, dontClearString
  global gSysStatusWordSpr, gStatusWordList, gModeState
  set lit to getaProp(gStatusWordList, pMsg)
  if not voidp(lit) then
    set the castNum of sprite gSysStatusWordSpr to lit
  end if
  if dontClearString = 0 then
    if (pMsg = #LCARSREADY) and not (gModeState = #FoundSet) then
      set the text of cast gStatusField to " "
    end if
  end if
  updateStage()
end

on hInitSysAlertWords
  global gSysStatusWordSpr, gStatusWordList
  puppetSprite(gSysStatusWordSpr, 1)
  set gStatusWordList to [:]
  setaProp(gStatusWordList, #ACCESSING, the number of cast "SYS.ACCESSING")
  setaProp(gStatusWordList, #MEDIALINK, the number of cast "SYS.MEDIALINK")
  setaProp(gStatusWordList, #LCARSREADY, the number of cast "SYS.LCARSREADY")
  setaProp(gStatusWordList, #null, the number of cast "PixelREF")
end